home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
Dev
/
Amiga-E
/
E_v3.2a
/
Src
/
Gfx
/
ColourScreen.e
< prev
next >
Wrap
Text File
|
1992-09-02
|
287b
|
15 lines
/* _Very_ simple customscreen-demo */
PROC main()
DEF screen,sx,sy
IF screen:=OpenS(321,257,5,0,'My Screen')
REPEAT
FOR sx:=0 TO 320
FOR sy:=0 TO 256 DO Plot(sx,sy,sx*sy+1)
EXIT Mouse()=1
ENDFOR
UNTIL Mouse()=1
CloseS(screen)
ENDIF
ENDPROC